80 REM *************************
81 REM ***    SYMBOL CODE    ***               ***                   ***
82 REM ***  COPYRIGHT 1982   ***
83 REM *** EVANG. PETROUTSOS ***
84 REM *************************
85 REM
90 REM ** "" CURSOR DOWN
91 REM ** "" CURSOR RIGHT
92 REM ** "" CURSOR HOME
93 REM ** "[147]" CLEAR SCREEN
94 REM ** "[144]" CONTROL-BLACK
95 REM
100 L=1137:PRINT"[144]":POKE53281,13
105 DD=1268:EF=0:RV=0:SC=500
110 RESTORE:FORI=1TO6:FORJ=1TO4:READA%(I,J):NEXT:NEXT
120 EF=0:FORM=1 TO 4
125 D(M)=INT(RND(3)*6)+1:IFD(M)>6THEN125
130 IFM=1THEN140
135 FORI=1TOM-1:IFD(M)=D(M-I)THEN125
137 NEXT
140 NEXT
190 REM ** THE SUBROUTINES AT LINES:
191 REM ** 1000, 1200, 1300
192 REM ** DRAW THE GRID AND THE SYMBOLS193 REM ** ON THE SCREEN
200 GOSUB1000:GOSUB1300:GOSUB1200
202 GOSUB400
205 PRINT"SCORE:";SC;"[146]";"AVERAGE:";V9;"[146]"
208 GETR$:IFR$=""THEN208
210 IFR$="[133]"THEN235:REM F1 FUNCTION KEY
212 IFR$="[136]"THEN240:REM F7 FUNCTION KEY
213 IFR$=" "THEN600
214 IFR$="1"THENSD=DD:A1=1:GOTO500
215 IFR$="2"THENSD=DD+3:A2=1:GOTO500
216 IFR$="3"THENSD=DD+6:A3=1:GOTO500
217 IFR$="4"THENSD=DD+9:A4=1:GOTO500
220 IFR$="H"THENSC=SC-50:GOTO450
230 GOTO205
235 L1=L:L=L-120:IFL<1137THENL=1737
236 GOTO245
240 L1=L:L=L+120:IFL>1737THENL=1137
245 GOSUB1200
250 GOTO205
400 REM ** HIDDEN CODE **
402 POKE1930,102:POKE1931,102:POKE1933,102:POKE1934,102:POKE1936,102
405 POKE1937,102:POKE1939,102:POKE1940,102
410 POKE1970,102:POKE1971,102:POKE1973,102:POKE1974,102:POKE1976,102
415 POKE1977,102:POKE1979,102:POKE1980,102
420 PRINT"HIDDEN CODE";
430 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][174]"
432 PRINT"[221][221]"
434 PRINT"[221][221]"
436 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][189]";:PRINT"":RETURN
450 REM *** HELP ***
455 IFRV=0THEN Q1=1930:GOTO460
456 IFRV=1THEN Q1=1933:GOTO460
457 IFRV=2THEN Q1=1936:GOTO460
458 Q1=1939
460 RV=RV+1:F1=D(RV)
465 POKEQ1,A%(F1,1):POKEQ1+1,A%(F1,2):POKEQ1+40,A%(F1,3):POKEQ1+41,A%(F1,4)
467 IFR$="H"ANDRV=4THENSC=0:GOTO822
470 IFRV=4THEN 830
475 IFGG=9THENRETURN
480 GOTO205
500 REM*** DRAW A FIGURE ***
505 IFL=1137THENFG=1:GOTO520
506 IFL=1257THENFG=2:GOTO520
507 IFL=1377THENFG=3:GOTO520
508 IFL=1497THENFG=4:GOTO520
509 IFL=1617THENFG=5:GOTO520
510 IFL=1737THENFG=6:GOTO520
520 POKESD,A%(FG,1):POKESD+1,A%(FG,2):POKESD+40,A%(FG,3):POKESD+41,A%(FG,4)
522 R=VAL(R$):B(R)=FG
525 GOTO205
600 IFA1=0ORA2=0ORA3=0ORA4=0THEN205
605 F=0:P=0
610 A1=0:A2=0:A3=0:A4=0:EF=EF+1
640 FORI1=1TO4:IFB(I1)=D(I1)THENP=P+1
643 NEXT
650 FORM=1 TO 4:FOR K=1TO4:
655 FORS=1TOM-1:IF B(M)=B(M-S)THENS=M-1:K=4:GOTO690
657 NEXTS
680 IFB(M)=D(K)THENF=F+1
685 NEXTK
690 NEXTM
695 IFP<4THENGOSUB1600
696 IFP=4THENDD=DD+120
700 REM *** CHECK GUESS ***
701 IFEF>2THENSC=SC-10
702 DR=DD-120:IF F=0THEN780
703 IFDD=1268THENDR=1868
705 POKEDR+14,81:
710 IF F=1THEN750
712 POKEDR+55,81
715 IFF=2THEN750
717 POKEDR+15,81
718 IFF=3THEN750
720 POKEDR+54,81:
750 IFP=0THEN205
752 POKEDR+17,81:IFP=1THEN205
753 POKEDR+58,81:IFP=2THEN205
755 POKEDR+18,81:IFP=3THEN205
758 POKEDR+57,81
780 IFP<4THEN205
800 REM *** CORRECT GUESS ***
810 PRINT"":PRINT"GONGRATULATIONS !!!";
814 GM=GM+1:SC=SC+10:D9=SC-VG:VG=VG+D9/GM:V9=INT(VG)
816 REMPRINT"";"SCORE:";SC;"[146]";"AVERAGE:";V9;"[146]"
820 GG=9:RV=0:GOSUB450:RV=1:GOSUB450:RV=2:GOSUB450:RV=3:GOSUB450:GG=0
822 SC=0:GM=GM+1:D9=SC-VG:VG=VG+D9/GM:V9=INT(VG)
823 PRINT"                                 ";
824 PRINT"";"SCORE:";SC;"[146]";"AVERAGE:";V9;"[146]";"     "
825 SC=500:EF=0
830 GETF$:IFF$<>"[133]"ANDF$<>"[134]"ANDF$<>"[135]"ANDF$<>"[136]"THEN830
840 PRINT"[147]":GG=0:F=0:P=0:DD=1268:L=1137:RV=0:GOTO100
1000 PRINT"[147]"
1002 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][174] [176][192][192][178][192][192][174]              "
1004 PRINT"[194]YOUR CHOICE[194] [194]FG[194]PS[194]              "
1006 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][189] [173][192][192][177][192][192][189]              "
1010 PRINT"[176][192][192][178][192][192][178][192][192][178][192][192][174] [176][192][192][178][192][192][174]             "
1012 PRINT"[221]  [221]  [221]  [221]  [221] [221]  [221]  [221]             "
1014 PRINT"[221]  [221][160] [221]  [221]  [221] [221]  [221]  [221]             "
1016 PRINT"[171][192][192][219][192][192][219][192][192][219][192][192][179] [171][192][192][219][192][192][179]             "
1018 PRINT"[221]  [221]  [221]  [221]  [221] [221]  [221]  [221]             "
1020 PRINT"[221]  [221]  [221]  [221]  [221] [221]  [221][160] [221]             "
1022 PRINT"[171][192][192][219][192][192][219][192][192][219][192][192][179] [171][192][192][219][192][192][179]             "
1024 PRINT"[221]  [221]  [221]  [221]  [221] [221]  [221]  [221]             "
1026 PRINT"[221]  [221]  [221]  [221]  [221] [221]  [221][160] [221]             "
1028 PRINT"[171][192][192][219][192][192][219][192][192][219][192][192][179] [171][192][192][219][192][192][179]             "
1030 PRINT"[221]  [221]  [221]  [221]  [221] [221]  [221]  [221]             "
1032 PRINT"[221]  [221]  [221]  [221]  [221] [221]  [221][160] [221]             "
1034 PRINT"[171][192][192][219][192][192][219][192][192][219][192][192][179] [171][192][192][219][192][192][179]             "
1036 PRINT"[221]  [221]  [221]  [221]  [221] [221]  [221]  [221]              "
1038 PRINT"[221]  [221]  [221]  [221]  [221] [221]  [221][160] [221]              "
1040 PRINT"[171][192][192][219][192][192][219][192][192][219][192][192][179] [171][192][192][219][192][192][179]              "
1042 PRINT"[221]  [221]  [221]  [221]  [221] [221]  [221]  [221]              "
1044 PRINT"[221]  [221]  [221]  [221]  [221] [221]  [221][160] [221]               "
1046 PRINT"[173][192][192][177][192][192][177][192][192][177][192][192][189] [173][192][192][177][192][192][189]               "
1050 RETURN
1200 POKEL1,32:POKEL1+1,32:POKEL1+2,32
1210 POKEL1+40,32:POKEL1+41,32:POKEL1+42,32
1220 POKEL,233:POKEL+1,111:POKEL+2,111
1230 POKEL+40,95:POKEL+41,119:POKEL+42,119:RETURN
1300 POKE1134,160:POKE1135,160:POKE1174,160:POKE1175,160
1310 POKE1254,233:POKE1255,223
1315 POKE1294,95:POKE1295,105
1320 POKE1374,77:POKE1375,78:POKE1414,78
1325 POKE1415,77:POKE1495,77
1335 POKE1494,78:POKE1535,78:POKE1534,77
1340 POKE1614,122:POKE1615,76
1345 POKE1654,80:POKE1655,79
1350 POKE1734,79:POKE1735,80:POKE1774,76:POKE1775,122
1355 RETURN
1600 REM** CLEAR AREA FOR NEXT GUESS **
1615 DD=DD+120:IFSD>1777THENDD=1268
1630 POKEDD,32:POKEDD+1,32:POKEDD+3,32:POKEDD+4,32:POKEDD+6,32:POKEDD+7,32
1632 POKEDD+9,32:POKEDD+10,32:POKEDD+14,32:POKEDD+15,32:POKEDD+17,32
1634 POKEDD+18,32
1635 POKEDD+40,32:POKEDD+41,32:POKEDD+43,32:POKEDD+44,32:POKEDD+46,32
1636 POKEDD+47,32
1638 POKEDD+49,32:POKEDD+50,32:POKEDD+54,32:POKEDD+55,32:POKEDD+57,32
1639 POKEDD+58,32:RETURN
2000 DATA160,160,160,160,233,223,95,105,77,78,78,77,78,77,77,78,122,76,80,79
2010 DATA79,80,76,122